home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2000 July
/
CHIP Turkiye Temmuz 2000.iso
/
prog
/
share
/
02
/
ARCHIVE.Z
/
MPS.dll
/
PROC
/
ADOBE_TYPOGRAPHY_AI5
< prev
Wrap
Text File
|
1998-09-17
|
7KB
|
570 lines
%%BeginResource: procset Adobe_typography_AI5 2.0 0
%%Title: (Universal Typography Operators)
%%Version: 2.0
%%CreationDate:(9/24/96) ()
%%Copyright: ((C) 1987-1996 Adobe Systems Incorporated All Rights Reserved)
currentpacking true setpacking
userdict /Adobe_typography_AI5 66 dict dup begin
put
/initialize
{
pop pop
} def
/initialize2
{
begin
begin
Adobe_typography_AI5 begin
Adobe_typography_AI5
{
dup xcheck
{
bind
} if
pop pop
} forall
end
end
end
Adobe_typography_AI5 begin
} def
/terminate
{
} def
/terminate2
{
currentdict Adobe_typography_AI5 eq
{
end
} if
} def
/modifyEncoding
{
/_tempEncode exch ddef
/_pntr 0 ddef
{
counttomark -1 roll
dup type dup /marktype eq
{
pop pop exit
}
{
/nametype eq
{
_tempEncode /_pntr dup load dup 3 1 roll 1 add ddef 3 -1 roll
put
}
{
/_pntr exch ddef
} ifelse
} ifelse
} loop
_tempEncode
} def
/havefont
{
systemdict /languagelevel known
{
/Font resourcestatus dup
{ exch pop exch pop }
if
}
{
systemdict /FontDirectory get 1 index known
{ pop true }
{
systemdict /fileposition known
{
dup length 6 add exch
Ss 6 250 getinterval
cvs pop
Ss exch 0 exch getinterval
status
{ pop pop pop pop true }
{ false }
ifelse
}
{
pop false
}
ifelse
}
ifelse
}
ifelse
} def
/TE
{
StandardEncoding 256 array copy modifyEncoding
/_nativeEncoding exch def
} def
%
/TZ
{
dup type /arraytype eq
{
/_wv exch def
}
{
/_wv 0 def
} ifelse
/_useNativeEncoding exch def
2 index havefont
{
2 index findfont
}
{
dup 1 eq
{
2 index 64 string cvs
dup dup length 11 sub dup 0 le
{
pop pop pop true
}
{
11 getinterval dup
(90pv-RKSJ-H) eq
{
0 (83pv-RKSJ-H) putinterval
cvn dup havefont
{
findfont false
}
{
pop true
} ifelse
}
{
pop pop true
} ifelse
} ifelse
{
/Ryumin-Light-83pv-RKSJ-H havefont
{/Ryumin-Light-83pv-RKSJ-H}
{/Courier}
ifelse
findfont
[1 0 0.5 1 0 0] makefont
} if
}
{
/Courier findfont
} ifelse
} ifelse
_wv type /arraytype eq
{
_wv makeblendedfont
} if
dup length 10 add dict
begin
mark exch
{
1 index /FID ne
{
def
} if
cleartomark mark
} forall
pop
/FontScript exch def
/FontDirection exch def
/FontRequest exch def
/FontName exch def
counttomark 0 eq
{
1 _useNativeEncoding eq
{
/Encoding _nativeEncoding def
} if
cleartomark
}
{
/Encoding load 256 array copy
modifyEncoding /Encoding exch def
} ifelse
FontName currentdict
end
definefont pop
} def
/tr
{
_ax _ay 3 2 roll
} def
/trj
{
_cx _cy _sp _ax _ay 6 5 roll
} def
/a0
{
/Tx
{
dup
currentpoint 3 2 roll
tr _psf
newpath moveto
tr _ctm _pss
} ddef
/Tj
{
dup
currentpoint 3 2 roll
trj _pjsf
newpath moveto
trj _ctm _pjss
} ddef
} def
/a1
{
W B
} def
/e0
{
/Tx
{
tr _psf
} ddef
/Tj
{
trj _pjsf
} ddef
} def
/e1
{
W F
} def
/i0
{
/Tx
{
tr sp
} ddef
/Tj
{
trj jsp
} ddef
} def
/i1
{
W N
} def
/o0
{
/Tx
{
tr sw rmoveto
} ddef
/Tj
{
trj swj rmoveto
} ddef
} def
/r0
{
/Tx
{
tr _ctm _pss
} ddef
/Tj
{
trj _ctm _pjss
} ddef
} def
/r1
{
W S
} def
/To
{
pop _ctm currentmatrix pop
} def
/TO
{
iTe _ctm setmatrix newpath
} def
/Tp
{
pop _tm astore pop _ctm setmatrix
_tDict begin
/W
{
} def
/h
{
} def
} def
/TP
{
end
iTm 0 0 moveto
} def
/Tr
{
_render 3 le
{
currentpoint newpath moveto
} if
dup 8 eq
{
pop 0
}
{
dup 9 eq
{
pop 1
} if
} ifelse
dup /_render exch ddef
_renderStart exch get load exec
} def
/iTm
{
_ctm setmatrix _tm concat
_shift aload pop _lineorientation 1 eq { exch } if translate
_scale aload pop _lineorientation 1 eq _yokoorientation 1 eq or { exch } if scale
} def
/Tm
{
_tm astore pop iTm 0 0 moveto
} def
/Td
{
_mtx translate _tm _tm concatmatrix pop iTm 0 0 moveto
} def
/iTe
{
_render -1 eq
{
}
{
_renderEnd _render get dup null ne
{
load exec
}
{
pop
} ifelse
} ifelse
/_render -1 ddef
} def
/Ta
{
pop
} def
/Tf
{
1 index type /nametype eq
{
dup 0.75 mul 1 index 0.25 mul neg
} if
/_fontDescent exch ddef
/_fontAscent exch ddef
/_fontSize exch ddef
/_fontRotateAdjust _fontAscent _fontDescent add 2 div neg ddef
/_fontHeight _fontSize ddef
findfont _fontSize scalefont setfont
} def
/Tl
{
pop neg 0 exch
_leading astore pop
} def
/Tt
{
pop
} def
/TW
{
3 npop
} def
/Tw
{
/_cx exch ddef
} def
/TC
{
3 npop
} def
/Tc
{
/_ax exch ddef
} def
/Ts
{
0 exch
_shift astore pop
currentpoint
iTm
moveto
} def
/Ti
{
3 npop
} def
/Tz
{
count 2 ge
{
1 index type dup /integertype ne
{
/realtype ne
{
100
} if
}
{
pop
} ifelse
}
{
100
} ifelse
100 div exch 100 div exch
_scale astore pop
iTm
} def
/TA
{
pop
} def
/Tq
{
pop
} def
/Tg
{
pop
} def
/TG
{
pop
} def
/Tv
{
/_lineorientation exch ddef
} def
/TV
{
/_charorientation exch ddef
} def
/Ty
{
dup /_yokoorientation exch ddef 1 sub neg Tv
} def
/TY
{
pop
} def
/T~
{
Tx
} def
/Th
{
pop pop pop pop pop
} def
/TX
{
pop
} def
/Tk
{
_fontSize mul 1000 div
_lineorientation 0 eq { neg 0 } { 0 exch } ifelse
rmoveto
pop
} def
/TK
{
2 npop
} def
/T*
{
_leading aload pop
_lineorientation 0 ne { exch } if
Td
} def
/T*-
{
_leading aload pop
_lineorientation 0 ne { exch } if
exch neg exch neg
Td
} def
/T-
{
_ax neg 0 rmoveto
_lineorientation 1 eq _charorientation 0 eq and { 1 TV _hyphen Tx 0 TV } { _hyphen Tx } ifelse
} def
/T+
{
} def
/TR
{
_ctm currentmatrix pop
_tm astore pop
iTm 0 0 moveto
} def
/TS
{
currentfont 3 1 roll
/_Symbol_ findfont _fontSize scalefont setfont
0 eq
{
Tx
}
{
Tj
} ifelse
setfont
} def
/Xb
{
pop pop
} def
/Tb /Xb load def
/Xe
{
pop pop pop pop
} def
/Te /Xe load def
/XB
{
} def
/TB /XB load def
currentdict readonly pop
end
setpacking
%
/X^
{
currentfont 5 1 roll
dup havefont
{
findfont _fontSize scalefont setfont
}
{
pop
exch
} ifelse
2 index 0 eq
{
Tx
}
{
Tj
} ifelse
pop pop
setfont
} def
/T^ /X^ load def
userdict /Adobe_typography_AI3 known not
{
userdict /Adobe_typography_AI3 2 dict put
} if
userdict /Adobe_typography_AI3 get begin
/initialize { } def
/terminate { } def
end
%%EndResource